function ShowTimeStamp(VS)
% StartTime=VS.EstimatedStimulusOnsetTime(1);
% WindowInfo
Interval=VS.EstimatedStimulusOnsetTime(2:end)-VS.EstimatedStimulusOnsetTime(1:end-1);
Framedrop= (Interval>=1.1*VS.WindowInfo.ifi)&(Interval<=30*VS.WindowInfo.ifi);
Interval(Interval>30*VS.WindowInfo.ifi)=0.9*VS.WindowInfo.ifi;
RoundBegin=Interval>30*VS.WindowInfo.ifi;
Error=abs(Interval-VS.WindowInfo.ifi);
Error(Error>0.1*VS.WindowInfo.ifi)=0;

plot(Interval)
hold on
ScreenIfi=VS.WindowInfo.ifi*ones(1,length(VS.EstimatedStimulusOnsetTime));
plot(ScreenIfi)
ylim([0.0*VS.WindowInfo.ifi 2*VS.WindowInfo.ifi])

text(0.1*length(VS.EstimatedStimulusOnsetTime),0.9*VS.WindowInfo.ifi,['Max error is ',num2str(max(Error)/VS.WindowInfo.ifi),'%'])
DropedFrame=find(Framedrop);
NDropedFrame=length(DropedFrame);
text(0.1*length(VS.EstimatedStimulusOnsetTime),0.8*VS.WindowInfo.ifi,[num2str(NDropedFrame),' frames is droped'])
DropInformation=[];
for iDropedFrame=1:1:NDropedFrame
    DropInformation=['frame ',num2str(DropedFrame(iDropedFrame)),' takes ',num2str(Interval(DropedFrame(iDropedFrame))/VS.WindowInfo.ifi),' times of ifi'];
    text(0.1*length(VS.EstimatedStimulusOnsetTime),(0.8-0.1*iDropedFrame)*VS.WindowInfo.ifi,DropInformation)
end
